## NOTE that this function might need to be actualized
obj <- new('RNAseq',
organismName="Dmelanogaster",
readLength=36L,
chrSize=as.list(seqlengths(Dmelanogaster))
)
obj <- fetchCoverage(
obj,
format="bam",
filename=system.file(
"extdata",
"ACACTG.bam",
package="RnaSeqTutorial")
)
obj <- findIslands(
obj,
max.gap=10L,
min.cov=10L,
min.length=200L)
Run the code above in your browser using DataLab